/* Planet Drop + Fighter Delay */
/* Made by Dell Bond */
/* Version 1.0 */

call zoctimeout 144000

say ""
say ""
say "You must be on a planet for this script to work"
call zocsend "d"
call zocwait "Planet #"
planet=GetPlanet(0,0)

do forever
result =zocwaitmux("ACTIVITY WARNI", "loyed Figh")
select
	when result=0 then p=1
	when result=1 then p=2
end

if p=1 then do
	call zocsend "#"
end

if p=2 then do
	call zocwait "rs Report Sector "
	sector=GetFigNum(0,0)
	call zocsend "cp"
	call zocsend sector
	call zocsend "^my"
	call zocwait "anetary TransWarp Drive"
	call zocsend "q"
	call getfig
end

end
exit


getfig:
call zocsend "mn"
result=ZocWaitMux("There are currently 1", "There are currently 2", "There are currently 3", "There are currently 4", "There are currently 5", "There are currently 6", "There are currently 7", "There are currently 8", "There are currently 9", "There are currently 0")
select
	when result=0 then x=1
	when result=1 then x=1
	when result=2 then x=1
	when result=3 then x=1
	when result=4 then x=1
	when result=5 then x=1
	when result=6 then x=1
	when result=7 then x=1
	when result=8 then x=1
	when result=9 then x=2
end

if x=2 then exit

if x=1 then
call zocsend "t^mq"
call zocsend "f"
call zocwait "<Drop/Take Fighter"
call zocwait "You have "
fighters=GetPlanet(0,0)
call zocsend fighters
call zocsend "^mcpd"
call zocsend "l"
call zocsend planet
call zocsend "^m"
call getfig


Getfignum:
holdfinal=""
call zocwait ":"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal

GetPlanet:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal